Source: Location Affordability Index, Version 3.0 (March 2019)
Version 3 of the LAI pulls from 2016 5-year ACS data and 2014 LEHD data.
This data set uses a series of 8 household models to calculate affordability. Each represents a different type of household, with varying numbers of people and commuters and various income levels. The households are as follows:
We have decided to focus on just Household 1 and Household 3. For each household, we look at housing affordability (represented by housing costs as % of income), transportation affordability (represented by transportation costs as % of income), and location affordability (represented by housing and transportation costs as % of income).
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh1_h)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh1_h),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Housing Costs as % of Income: ", round(cvlshapes$hh1_h, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh1_h,
title = "Housing Costs as % of Income", opacity = 0.7)
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh1_t)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh1_t),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Transportation Costs as % of Income: ", round(cvlshapes$hh1_t, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh1_t,
title = "Transportation Costs as % of Income", opacity = 0.7)
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh1_ht)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh1_ht),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Housing and Transportation Costs as % of Income: ", round(cvlshapes$hh1_ht, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh1_ht,
title = "Housing and Transportation Costs as % of Income", opacity = 0.7)
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh3_h)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh3_h),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Housing Costs as % of Income: ", round(cvlshapes$hh3_h, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh3_h,
title = "Housing Costs as % of Income", opacity = 0.7)
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh3_t)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh3_t),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Transportation Costs as % of Income: ", round(cvlshapes$hh3_t, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh3_t,
title = "Transportation Costs as % of Income", opacity = 0.7)
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvlshapes$hh3_ht)
leaflet(cvlshapes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvlshapes,
fillColor = ~pal(hh3_ht),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(weight = 2, fillOpacity = 0.8, bringToFront = T),
popup = paste0("Tract Number: ", cvlshapes$GEOID, "<br>",
"Housing and Transportation Costs as % of Income: ", round(cvlshapes$hh3_ht, 2))) %>%
addLegend("bottomright", pal = pal, values = cvlshapes$hh3_ht,
title = "Housing and Transportation Costs as % of Income", opacity = 0.7)